home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991 …esperately Seeking Seven / Desperately Seeking Seven.2mg / Dev.CD.8 / Essentials / Tools / DTS.Samples / SC13Math / More.Macs < prev    next >
Encoding:
Text File  |  1990-04-18  |  2.0 KB  |  63 lines  |  [04] ASCII Text (0x0000)
  1. ;------------------------------------------------------------------------------
  2. ;
  3. ; Copy and extended value from one variable to another
  4. ;
  5. ; ExtendEq SrcLoc,DestLoc - Copies 10 bytes from srcloc to DestLoc
  6. ;
  7. ;------------------------------------------------------------------------------
  8.                     MACRO
  9. &Lab                ExtendEq &SrcLoc,&DestLoc
  10. &Lab                lda &SrcLoc
  11.                     sta &DestLoc
  12.                     lda &SrcLoc+2
  13.                     sta &DestLoc+2
  14.                     lda &SrcLoc+4
  15.                     sta &DestLoc+4
  16.                     lda &SrcLoc+6
  17.                     sta &DestLoc+6
  18.                     lda &SrcLoc+8
  19.                     sta &DestLoc+8
  20.                     MEND
  21.                     
  22. ;-----------------------------------------------------------------------------
  23. ;
  24. ; Push a long space on the stack for fuction results
  25. ;
  26. ; LongResult
  27. ;
  28. ;-----------------------------------------------------------------------------
  29.                     MACRO
  30. &Lab                LongResult
  31. &Lab                pha
  32.                     pha
  33.                     MEnd
  34.                     
  35. ;-----------------------------------------------------------------------------
  36. ;
  37. ; Store 0's into an Extended number
  38. ;
  39. ; STZEXT Dest - Stores 10 bytes of 0 into Dest
  40. ;
  41. ;------------------------------------------------------------------------------
  42.                     MACRO
  43. &Lab                STZEXT &Dest
  44. &Lab                stz &Dest
  45.                     stz &Dest+2
  46.                     stz &Dest+4
  47.                     stz &Dest+6
  48.                     stz &Dest+8
  49.                     MEND
  50.                     
  51. ;------------------------------------------------------------------------------
  52. ;
  53. ; Store 0's into a longword
  54. ;
  55. ; STZL Dest - stores 4 bytes of 0 into Dest
  56. ;
  57. ;------------------------------------------------------------------------------
  58.                     MACRO
  59. &Lab                STZL &Dest
  60. &Lab                stz &Dest
  61.                     stz &Dest+2
  62.                     MEND
  63.